home *** CD-ROM | disk | FTP | other *** search
/ C/C++ Users Group Library 1996 July / C-C++ Users Group Library July 1996.iso / vol_400 / 423_01 / recio200 / testchp.c < prev    next >
Encoding:
C/C++ Source or Header  |  1994-04-15  |  7.1 KB  |  245 lines
  1. /* testchp.c - tests character delimited put functions */
  2. /* recio version 2.00, release April 15, 1994 */
  3. /* Copyright (C) 1994 William Pierpoint */
  4.  
  5. #include <ctype.h>
  6. #include <errno.h>
  7. #include <limits.h>
  8. #include <float.h>
  9. #include <stdio.h>
  10. #include <stdlib.h>
  11. #include <string.h>
  12. #include <io.h>
  13.  
  14. #include "recio.h"
  15.  
  16. /* errors to stderr */
  17. #define errout  stdout
  18.  
  19. /****************************************************************************
  20. Dynamic string concat function, kludged for use with recio.  This function 
  21. is not part of recio nor was rseterr() designed to work with it, but you get 
  22. the idea. 
  23. Precondition: set dst to null ptr when declaring it, e.g. char *dst=NULL;
  24. Obligation: free dst when finished with it.
  25. *****************************************************************************/
  26. char *                  /* return dst                                       */
  27.     scats(              /* concat string dynamically                        */
  28.         char *dst,      /* destination string pointer                       */
  29.         char *src)      /* source string pointer                            */
  30. /****************************************************************************/
  31. {                       
  32.   size_t dlen;          /* strlen of dst */
  33.   size_t slen;          /* strlen of src */
  34.  
  35.   /* if null src pointer or src empty, do nothing */
  36.   if (!src || !*src) {
  37.     goto done;
  38.   }
  39.   
  40.   if (dst) {
  41.     dlen = strlen(dst);
  42.     slen = strlen(src);
  43.     do {
  44.       dst = (char *) realloc(dst, dlen+slen+1);
  45.       if (!dst) {
  46.         if (rseterr(NULL, ENOMEM)) goto done;
  47.       }
  48.     } while (!dst);
  49.     strcat(dst, src);
  50.   } else {
  51.      do {
  52.        dst = strdup(src);
  53.        if (!dst) {
  54.          if (rseterr(NULL, ENOMEM)) goto done;
  55.        }
  56.      } while (!dst);
  57.    }
  58. done:
  59.   return dst;
  60. }
  61.  
  62. enum {RESET, INCR, REPORT};
  63. /****************************************************************************/
  64. void                         /* return nothing                              */
  65.     warnttl(                 /* warning totals                              */
  66.         int action,          /* action (0=reset, 1=increment, 2=report)     */
  67.         int warnum)          /* warning number                              */
  68. /****************************************************************************/
  69. {
  70.   static unsigned int widthcnt=0;
  71.   static unsigned int noregcnt=0;
  72.  
  73.   switch (action) {
  74.   case RESET:
  75.     widthcnt=0;
  76.     return;
  77.   case INCR:
  78.     switch(warnum) {
  79.     case R_WWIDTH: 
  80.       widthcnt++; 
  81.       return;
  82.     case R_WNOREG: 
  83.       noregcnt++; 
  84.       return;
  85.     }
  86.     return;
  87.   case REPORT:
  88.     fprintf(errout, "\n");
  89.     if (widthcnt) 
  90.       fprintf(errout, "WARNING -- %s -- %u times\n", 
  91.        rstrwarning(R_WWIDTH), widthcnt);
  92.     if (noregcnt) 
  93.       fprintf(errout, "WARNING -- %s\n", rstrwarning(R_WNOREG));
  94.     return;
  95.   }
  96. }
  97.  
  98. /****************************************************************************/
  99. void                         /* returns nothing                             */
  100.     rwarnfn(                 /* recio callback warning function             */
  101.         REC *rp)             /* record pointer                              */
  102. /****************************************************************************/
  103. {
  104.   if (risvalid(rp)) warnttl(INCR, rwarning(rp));
  105. }
  106.  
  107. /****************************************************************************/
  108. void                         /* returns nothing                             */
  109.     rerrfn(                  /* recio callback error function               */
  110.         REC *rp)             /* record pointer                              */
  111. /****************************************************************************/
  112. {
  113.   if (risvalid(rp)) {
  114.   
  115.     /* determine cause of error */
  116.     switch (rerror(rp)) {
  117.  
  118.     case R_ENOPUT:   /* could not write data */
  119.       fprintf(errout, "ERROR %s -- %s\n", rnames(rp), rerrstr(rp));
  120.       break;
  121.  
  122.     /* fatal errors (R_EINVMOD, R_EINVAL, R_ENOMEM) */
  123.     default:
  124.       fprintf(errout, "FATAL ERROR %s -- %s\n", rnames(rp), rerrstr(rp));
  125.       abort();
  126.       break;
  127.     }
  128.   
  129.   /* invalid record pointer */
  130.   } else {
  131.     switch (errno) {
  132.  
  133.     /* non-fatal errors */
  134.     case EACCES:
  135.     case EMFILE:
  136.       fprintf(errout, "WARNING: %s\n", strerror(errno));
  137.       break;
  138.  
  139.     /* fatal errors (EINVAL, ENOMEM) */
  140.     default:
  141.       fprintf(errout, "FATAL ERROR: %s\n", strerror(errno));
  142.       abort();
  143.       break;
  144.     }
  145.     errno = 0;
  146.   }
  147. }
  148.  
  149. /****************************************************************************/
  150. void putcolnumbers(void)
  151. /****************************************************************************/
  152. {
  153. puts("");
  154. puts("         1         2         3         4         5         6");
  155. puts("123456789012345678901234567890123456789012345678901234567890");
  156. }
  157.  
  158. /****************************************************************************
  159. main
  160. *****************************************************************************/
  161. int main()
  162. {
  163.   int j, k;                     /* loop indices */
  164.   int i;                        /* integer field */
  165.   unsigned int ui;              /* unsigned integer field */
  166.   long l;                       /* long field */
  167.   unsigned long ul;             /* unsigned long field */
  168.   float f;                      /* float field */
  169.   double d;                     /* double field */
  170.   int ch;                       /* character field */
  171.   char *str = NULL;             /* string field */
  172.   char str1[]="A";              /* string consisting of one letter */
  173.   
  174.   /* install warning and error functions */
  175.   rsetwarnfn(rwarnfn);
  176.   rseterrfn(rerrfn);
  177.   
  178.   /* if output not redirected */
  179.   if (isatty(fileno(stdout))) {
  180.     /* print instructions */
  181.     puts("TESTCHP version 2.00 Copyright (C) 1994 William Pierpoint");
  182.     puts("Tests recio character delimited put functions.");
  183.   }
  184.  
  185.   for (k=0; k<=1; k++) {
  186.     switch (k) {
  187.     case 1:
  188.       rsetfldch(recout, ',');
  189.       rsettxtch(recout, '"');
  190.       break;
  191.     }
  192.  
  193.     /* initialize data */
  194.     i = -1;
  195.     ui = 1;
  196.     l = -1L;
  197.     ul = 1L;
  198.     f = 1.111111;
  199.     d = 1.111111111111111111111;
  200.     ch = 'a';
  201.     if (str) *str='\0';
  202.     *str1 = toupper(ch);
  203.     str = scats(str, str1);
  204.  
  205.     /* loop through data */
  206.     for (j=0; j<11; j++) {
  207.  
  208.       rputi(recout,  i);
  209.       rputui(recout, ui);
  210.       rputl(recout,  l);
  211.       rputul(recout, ul);
  212.       rputf(recout,  f);
  213.       rputd(recout,  d);
  214.       rputc(recout,  ch);
  215.       rputs(recout,  str);
  216.  
  217.       i  *= 10;
  218.       ui *= 10;
  219.       l  *= 10L;
  220.       ul *= 10L;
  221.       f  *= 10.;
  222.       d  *= 10.;
  223.       ch += 1;
  224.       *str1 = toupper(ch);
  225.       str = scats(str, str1);
  226.  
  227.       rputrec(recout);
  228.     }
  229.   }
  230.   
  231.   /* free string fields */
  232.   free (str);
  233.   
  234.   /* check stream for warnings */
  235.   if (rwarning(recout)) warnttl(REPORT, NULL);
  236.  
  237.   /* check stream for error */
  238.   if (rerror(recout)) { 
  239.     fprintf(stdout, "\nERROR %s -- %s\n", 
  240.      rnames(recout), rerrstr(recout));
  241.     exit (EXIT_FAILURE);
  242.   }
  243.   return EXIT_SUCCESS;
  244. }
  245.